home *** CD-ROM | disk | FTP | other *** search
/ Win 50 Game+ Vol. 8 (Japan) / Win 50 Game+ Vol. 8 (Japan).bin / lha_file / cloop12a.lzh / CL12A_SC.LZH / CLSUB.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-08-04  |  712 b   |  42 lines
  1. unit Clsub;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, Spin;
  8.  
  9. type
  10.   TForm2 = class(TForm)
  11.     sploop: TSpinEdit;
  12.     spsize: TSpinEdit;
  13.     spstep: TSpinEdit;
  14.     Label1: TLabel;
  15.     Label2: TLabel;
  16.     Label3: TLabel;
  17.     Button1: TButton;
  18.     Button2: TButton;
  19.     procedure FormKeyDown(Sender: TObject; var Key: Word;
  20.       Shift: TShiftState);
  21.   private
  22.     { Private ÉΘî╛ }
  23.   public
  24.     { Public ÉΘî╛ }
  25.   end;
  26.  
  27. var
  28.   Form2: TForm2;
  29.  
  30. implementation
  31.  
  32. var bnum : integer;
  33. {$R *.DFM}
  34.  
  35. procedure TForm2.FormKeyDown(Sender: TObject; var Key: Word;
  36.   Shift: TShiftState);
  37. begin
  38.     if key = VK_RETURN then modalresult := mrOk;
  39. end;
  40.  
  41. end.
  42.